home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcc / v04n12 / batch2.exe / COLORSET.BAT < prev    next >
Encoding:
DOS Batch File  |  1991-10-10  |  1.8 KB  |  76 lines
  1. @ECHO OFF
  2. REM This is COLORSET.BAT
  3. IF %1!==! GOTO OOPS
  4. IF NOT %1==%2 GOTO INRANGE
  5. ECHO You specified %1 and %2 as colors. You
  6. ECHO can't use same foreground and background!
  7. GOTO OOPS
  8. :INRANGE
  9. FOR %%A IN (0 1 2 3 4 5 6 7) DO IF %1==3%%A GOTO TEST2
  10. ECHO Foreground must be between 30 and 37
  11. GOTO OOPS
  12. :TEST2
  13. FOR %%A IN (0 1 2 3 4 5 6 7) DO IF %2==4%%A GOTO CHEKFIRST
  14. ECHO Background must be between 40 and 47
  15. GOTO OOPS
  16. :CHEKFIRST
  17. ECHO Want to see the combination first (Y/N)?
  18. KEY
  19. IF ERRORLEVEL 89 IF NOT ERRORLEVEL 90 GOTO TRY
  20. GOTO DOIT
  21. :TRY
  22. SET O=%PROMPT%
  23. ECHO ON
  24. PROMPT $E[0;%1;%2m
  25. ECHO OFF
  26. CLS
  27. ECHO This is %1 %2
  28. ECHO Do you want these colors (Y/N)?
  29. KEY
  30. IF ERRORLEVEL 89 IF NOT ERRORLEVEL 90 GOTO DOIT
  31. ECHO Ok, aborting. Try %0 again
  32. ECHO ON
  33. PROMPT $E[0;34;47m
  34. CLS
  35. GOTO END
  36. :DOIT
  37. ECHO Creating SETCOLOR.BAT . . .
  38. ECHO N SETCOLOR.BAT > DDD
  39. ECHO E 100 "ECHO "1B"[0"3B"%1"3B"%2m" >> DDD
  40. ECHO E 10F D,A,"CLS" >> DDD
  41. ECHO RCX >> DDD
  42. ECHO 14 >> DDD
  43. ECHO W >> DDD
  44. ECHO Q >> DDD
  45. ECHO CLS >> DDD
  46. DEBUG < DDD
  47. DEL DDD
  48. CALL SETCOLOR
  49. GOTO REST
  50. :OOPS
  51. SET O=%PROMPT%
  52. ECHO.
  53. ECHO Enter two numbers -- the background and 
  54. ECHO foreground color numbers to set, e.g.,
  55. ECHO.
  56. ECHO %0 37 44  (for white on blue)
  57. ECHO.
  58. ECHO The ANSI color choices are:
  59. ECHO --------------------------
  60. ECHO Color   Foreground   Background   
  61. ECHO Black       30           40       
  62. ECHO Red         31           41       
  63. ECHO Green       32           42       
  64. ECHO Yellow      33           43       
  65. ECHO Blue        34           44       
  66. ECHO Magenta     35           45       
  67. ECHO Cyan        36           46       
  68. ECHO White       37           47       
  69. ECHO.
  70. GOTO END
  71. :REST
  72. ECHO So long as ANSI.SYS is loaded, you can
  73. ECHO run SETCOLOR.BAT any time to set these colors.
  74. :END
  75. SET PROMPT=%O%
  76.